home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1999-10-20 | 9.8 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 00 00 00 00 00 | 48 9d 01 2f 2f 20 55 57 |........|H..// UW|
|00000010| 69 6e 64 6f 77 45 64 69 | 74 42 6f 78 20 2d 20 73 |indowEdi|tBox - s|
|00000020| 69 6d 70 6c 65 20 65 64 | 69 74 20 62 6f 78 2c 20 |imple ed|it box, |
|00000030| 66 6f 72 20 75 73 65 20 | 69 6e 20 6f 74 68 65 72 |for use |in other|
|00000040| 20 63 6f 6e 74 72 6f 6c | 73 20 73 75 63 68 20 61 | control|s such a|
|00000050| 73 20 0d 0a 2f 2f 20 55 | 57 69 6e 64 6f 77 43 6f |s ..// U|WindowCo|
|00000060| 6d 62 6f 78 42 6f 78 43 | 6f 6e 74 72 6f 6c 2c 20 |mboxBoxC|ontrol, |
|00000070| 55 57 69 6e 64 6f 77 45 | 64 69 74 42 6f 78 43 6f |UWindowE|ditBoxCo|
|00000080| 6e 74 72 6f 6c 20 65 74 | 63 2e 0d 0a 0d 0a 63 6c |ntrol et|c.....cl|
|00000090| 61 73 73 20 55 57 69 6e | 64 6f 77 45 64 69 74 42 |ass UWin|dowEditB|
|000000a0| 6f 78 20 65 78 74 65 6e | 64 73 20 55 57 69 6e 64 |ox exten|ds UWind|
|000000b0| 6f 77 44 69 61 6c 6f 67 | 43 6f 6e 74 72 6f 6c 3b |owDialog|Control;|
|000000c0| 0d 0a 0d 0a 76 61 72 20 | 73 74 72 69 6e 67 09 09 |....var |string..|
|000000d0| 56 61 6c 75 65 3b 0d 0a | 76 61 72 20 73 74 72 69 |Value;..|var stri|
|000000e0| 6e 67 09 09 56 61 6c 75 | 65 32 3b 0d 0a 76 61 72 |ng..Valu|e2;..var|
|000000f0| 20 69 6e 74 09 09 09 43 | 61 72 65 74 4f 66 66 73 | int...C|aretOffs|
|00000100| 65 74 3b 0d 0a 76 61 72 | 20 69 6e 74 09 09 09 4d |et;..var| int...M|
|00000110| 61 78 4c 65 6e 67 74 68 | 3b 0d 0a 76 61 72 20 66 |axLength|;..var f|
|00000120| 6c 6f 61 74 09 09 4c 61 | 73 74 44 72 61 77 54 69 |loat..La|stDrawTi|
|00000130| 6d 65 3b 0d 0a 76 61 72 | 20 62 6f 6f 6c 09 09 62 |me;..var| bool..b|
|00000140| 53 68 6f 77 43 61 72 65 | 74 3b 0d 0a 76 61 72 20 |ShowCare|t;..var |
|00000150| 66 6c 6f 61 74 09 09 4f | 66 66 73 65 74 3b 0d 0a |float..O|ffset;..|
|00000160| 76 61 72 20 55 57 69 6e | 64 6f 77 44 69 61 6c 6f |var UWin|dowDialo|
|00000170| 67 43 6f 6e 74 72 6f 6c | 09 4e 6f 74 69 66 79 4f |gControl|.NotifyO|
|00000180| 77 6e 65 72 3b 0d 0a 76 | 61 72 20 62 6f 6f 6c 09 |wner;..v|ar bool.|
|00000190| 09 62 4e 75 6d 65 72 69 | 63 4f 6e 6c 79 3b 0d 0a |.bNumeri|cOnly;..|
|000001a0| 76 61 72 20 62 6f 6f 6c | 09 09 62 4e 75 6d 65 72 |var bool|..bNumer|
|000001b0| 69 63 46 6c 6f 61 74 3b | 0d 0a 76 61 72 20 62 6f |icFloat;|..var bo|
|000001c0| 6f 6c 09 09 62 43 61 6e | 45 64 69 74 3b 0d 0a 76 |ol..bCan|Edit;..v|
|000001d0| 61 72 20 62 6f 6f 6c 09 | 09 62 41 6c 6c 53 65 6c |ar bool.|.bAllSel|
|000001e0| 65 63 74 65 64 3b 0d 0a | 76 61 72 20 62 6f 6f 6c |ected;..|var bool|
|000001f0| 09 09 62 53 65 6c 65 63 | 74 4f 6e 46 6f 63 75 73 |..bSelec|tOnFocus|
|00000200| 3b 0d 0a 76 61 72 20 62 | 6f 6f 6c 09 09 62 44 65 |;..var b|ool..bDe|
|00000210| 6c 61 79 65 64 4e 6f 74 | 69 66 79 3b 0d 0a 76 61 |layedNot|ify;..va|
|00000220| 72 20 62 6f 6f 6c 09 09 | 62 43 68 61 6e 67 65 50 |r bool..|bChangeP|
|00000230| 65 6e 64 69 6e 67 3b 0d | 0a 76 61 72 20 62 6f 6f |ending;.|.var boo|
|00000240| 6c 09 09 62 43 6f 6e 74 | 72 6f 6c 44 6f 77 6e 3b |l..bCont|rolDown;|
|00000250| 0d 0a 76 61 72 20 62 6f | 6f 6c 09 09 62 53 68 69 |..var bo|ol..bShi|
|00000260| 66 74 44 6f 77 6e 3b 0d | 0a 76 61 72 20 62 6f 6f |ftDown;.|.var boo|
|00000270| 6c 09 09 62 48 69 73 74 | 6f 72 79 3b 0d 0a 76 61 |l..bHist|ory;..va|
|00000280| 72 20 62 6f 6f 6c 09 09 | 62 4b 65 79 44 6f 77 6e |r bool..|bKeyDown|
|00000290| 3b 0d 0a 76 61 72 20 55 | 57 69 6e 64 6f 77 45 64 |;..var U|WindowEd|
|000002a0| 69 74 42 6f 78 48 69 73 | 74 6f 72 79 09 48 69 73 |itBoxHis|tory.His|
|000002b0| 74 6f 72 79 4c 69 73 74 | 3b 0d 0a 76 61 72 20 55 |toryList|;..var U|
|000002c0| 57 69 6e 64 6f 77 45 64 | 69 74 42 6f 78 48 69 73 |WindowEd|itBoxHis|
|000002d0| 74 6f 72 79 09 43 75 72 | 72 65 6e 74 48 69 73 74 |tory.Cur|rentHist|
|000002e0| 6f 72 79 3b 0d 0a 0d 0a | 66 75 6e 63 74 69 6f 6e |ory;....|function|
|000002f0| 20 43 72 65 61 74 65 64 | 28 29 0d 0a 7b 0d 0a 09 | Created|()..{...|
|00000300| 53 75 70 65 72 2e 43 72 | 65 61 74 65 64 28 29 3b |Super.Cr|eated();|
|00000310| 0d 0a 09 62 43 61 6e 45 | 64 69 74 20 3d 20 54 72 |...bCanE|dit = Tr|
|00000320| 75 65 3b 0d 0a 09 62 43 | 6f 6e 74 72 6f 6c 44 6f |ue;...bC|ontrolDo|
|00000330| 77 6e 20 3d 20 46 61 6c | 73 65 3b 0d 0a 09 62 53 |wn = Fal|se;...bS|
|00000340| 68 69 66 74 44 6f 77 6e | 20 3d 20 46 61 6c 73 65 |hiftDown| = False|
|00000350| 3b 0d 0a 0d 0a 09 4d 61 | 78 4c 65 6e 67 74 68 20 |;.....Ma|xLength |
|00000360| 3d 20 32 35 35 3b 0d 0a | 09 43 61 72 65 74 4f 66 |= 255;..|.CaretOf|
|00000370| 66 73 65 74 20 3d 20 30 | 3b 0d 0a 09 4f 66 66 73 |fset = 0|;...Offs|
|00000380| 65 74 20 3d 20 30 3b 0d | 0a 09 4c 61 73 74 44 72 |et = 0;.|..LastDr|
|00000390| 61 77 54 69 6d 65 20 3d | 20 47 65 74 4c 65 76 65 |awTime =| GetLeve|
|000003a0| 6c 28 29 2e 54 69 6d 65 | 53 65 63 6f 6e 64 73 3b |l().Time|Seconds;|
|000003b0| 0d 0a 7d 0d 0a 0d 0a 66 | 75 6e 63 74 69 6f 6e 20 |..}....f|unction |
|000003c0| 53 65 74 48 69 73 74 6f | 72 79 28 62 6f 6f 6c 20 |SetHisto|ry(bool |
|000003d0| 62 49 6e 48 69 73 74 6f | 72 79 29 0d 0a 7b 0d 0a |bInHisto|ry)..{..|
|000003e0| 09 62 48 69 73 74 6f 72 | 79 20 3d 20 62 49 6e 48 |.bHistor|y = bInH|
|000003f0| 69 73 74 6f 72 79 3b 0d | 0a 0d 0a 09 69 66 28 62 |istory;.|....if(b|
|00000400| 48 69 73 74 6f 72 79 20 | 26 26 20 48 69 73 74 6f |History |&& Histo|
|00000410| 72 79 4c 69 73 74 3d 3d | 4e 6f 6e 65 29 0d 0a 09 |ryList==|None)...|
|00000420| 7b 0d 0a 09 09 48 69 73 | 74 6f 72 79 4c 69 73 74 |{....His|toryList|
|00000430| 20 3d 20 6e 65 77 28 4e | 6f 6e 65 29 20 63 6c 61 | = new(N|one) cla|
|00000440| 73 73 27 55 57 69 6e 64 | 6f 77 45 64 69 74 42 6f |ss'UWind|owEditBo|
|00000450| 78 48 69 73 74 6f 72 79 | 27 3b 0d 0a 09 09 48 69 |xHistory|';....Hi|
|00000460| 73 74 6f 72 79 4c 69 73 | 74 2e 53 65 74 75 70 53 |storyLis|t.SetupS|
|00000470| 65 6e 74 69 6e 65 6c 28 | 29 3b 0d 0a 09 09 43 75 |entinel(|);....Cu|
|00000480| 72 72 65 6e 74 48 69 73 | 74 6f 72 79 20 3d 20 4e |rrentHis|tory = N|
|00000490| 6f 6e 65 3b 0d 0a 09 7d | 0d 0a 09 65 6c 73 65 0d |one;...}|...else.|
|000004a0| 0a 09 69 66 28 21 62 48 | 69 73 74 6f 72 79 20 26 |..if(!bH|istory &|
|000004b0| 26 20 48 69 73 74 6f 72 | 79 4c 69 73 74 21 3d 4e |& Histor|yList!=N|
|000004c0| 6f 6e 65 29 0d 0a 09 7b | 0d 0a 09 09 48 69 73 74 |one)...{|....Hist|
|000004d0| 6f 72 79 4c 69 73 74 20 | 3d 20 4e 6f 6e 65 3b 0d |oryList |= None;.|
|000004e0| 0a 09 09 43 75 72 72 65 | 6e 74 48 69 73 74 6f 72 |...Curre|ntHistor|
|000004f0| 79 20 3d 20 4e 6f 6e 65 | 3b 0d 0a 09 7d 0d 0a 7d |y = None|;...}..}|
|00000500| 0d 0a 0d 0a 66 75 6e 63 | 74 69 6f 6e 20 53 65 74 |....func|tion Set|
|00000510| 45 64 69 74 61 62 6c 65 | 28 62 6f 6f 6c 20 62 45 |Editable|(bool bE|
|00000520| 64 69 74 61 62 6c 65 29 | 0d 0a 7b 0d 0a 09 62 43 |ditable)|..{...bC|
|00000530| 61 6e 45 64 69 74 20 3d | 20 62 45 64 69 74 61 62 |anEdit =| bEditab|
|00000540| 6c 65 3b 0d 0a 7d 0d 0a | 0d 0a 66 75 6e 63 74 69 |le;..}..|..functi|
|00000550| 6f 6e 20 53 65 74 56 61 | 6c 75 65 28 73 74 72 69 |on SetVa|lue(stri|
|00000560| 6e 67 20 4e 65 77 56 61 | 6c 75 65 2c 20 6f 70 74 |ng NewVa|lue, opt|
|00000570| 69 6f 6e 61 6c 20 73 74 | 72 69 6e 67 20 4e 65 77 |ional st|ring New|
|00000580| 56 61 6c 75 65 32 29 0d | 0a 7b 0d 0a 09 56 61 6c |Value2).|.{...Val|
|00000590| 75 65 20 3d 20 4e 65 77 | 56 61 6c 75 65 3b 0d 0a |ue = New|Value;..|
|000005a0| 09 56 61 6c 75 65 32 20 | 3d 20 4e 65 77 56 61 6c |.Value2 |= NewVal|
|000005b0| 75 65 32 3b 0d 0a 0d 0a | 09 69 66 28 43 61 72 65 |ue2;....|.if(Care|
|000005c0| 74 4f 66 66 73 65 74 20 | 3e 20 4c 65 6e 28 56 61 |tOffset |> Len(Va|
|000005d0| 6c 75 65 29 29 0d 0a 09 | 09 43 61 72 65 74 4f 66 |lue))...|.CaretOf|
|000005e0| 66 73 65 74 20 3d 20 4c | 65 6e 28 56 61 6c 75 65 |fset = L|en(Value|
|000005f0| 29 3b 09 09 0d 0a 09 4e | 6f 74 69 66 79 28 44 45 |);.....N|otify(DE|
|00000600| 5f 43 68 61 6e 67 65 29 | 3b 0d 0a 7d 0d 0a 0d 0a |_Change)|;..}....|
|00000610| 66 75 6e 63 74 69 6f 6e | 20 43 6c 65 61 72 28 29 |function| Clear()|
|00000620| 0d 0a 7b 0d 0a 09 43 61 | 72 65 74 4f 66 66 73 65 |..{...Ca|retOffse|
|00000630| 74 20 3d 20 30 3b 0d 0a | 09 56 61 6c 75 65 3d 22 |t = 0;..|.Value="|
|00000640| 22 3b 0d 0a 09 56 61 6c | 75 65 32 3d 22 22 3b 0d |";...Val|ue2="";.|
|00000650| 0a 09 62 41 6c 6c 53 65 | 6c 65 63 74 65 64 20 3d |..bAllSe|lected =|
|00000660| 20 46 61 6c 73 65 3b 0d | 0a 09 69 66 28 62 44 65 | False;.|..if(bDe|
|00000670| 6c 61 79 65 64 4e 6f 74 | 69 66 79 29 0d 0a 09 09 |layedNot|ify)....|
|00000680| 62 43 68 61 6e 67 65 50 | 65 6e 64 69 6e 67 20 3d |bChangeP|ending =|
|00000690| 20 54 72 75 65 3b 0d 0a | 09 65 6c 73 65 0d 0a 09 | True;..|.else...|
|000006a0| 09 4e 6f 74 69 66 79 28 | 44 45 5f 43 68 61 6e 67 |.Notify(|DE_Chang|
|000006b0| 65 29 3b 0d 0a 7d 0d 0a | 0d 0a 66 75 6e 63 74 69 |e);..}..|..functi|
|000006c0| 6f 6e 20 53 65 6c 65 63 | 74 41 6c 6c 28 29 0d 0a |on Selec|tAll()..|
|000006d0| 7b 0d 0a 09 69 66 28 62 | 43 61 6e 45 64 69 74 20 |{...if(b|CanEdit |
|000006e0| 26 26 20 56 61 6c 75 65 | 20 21 3d 20 22 22 29 0d |&& Value| != "").|
|000006f0| 0a 09 7b 0d 0a 09 09 43 | 61 72 65 74 4f 66 66 73 |..{....C|aretOffs|
|00000700| 65 74 20 3d 20 4c 65 6e | 28 56 61 6c 75 65 29 3b |et = Len|(Value);|
|00000710| 0d 0a 09 09 62 41 6c 6c | 53 65 6c 65 63 74 65 64 |....bAll|Selected|
|00000720| 20 3d 20 54 72 75 65 3b | 0d 0a 09 7d 0d 0a 7d 0d | = True;|...}..}.|
|00000730| 0a 0d 0a 66 75 6e 63 74 | 69 6f 6e 20 73 74 72 69 |...funct|ion stri|
|00000740| 6e 67 20 47 65 74 56 61 | 6c 75 65 28 29 0d 0a 7b |ng GetVa|lue()..{|
|00000750| 0d 0a 09 72 65 74 75 72 | 6e 20 56 61 6c 75 65 3b |...retur|n Value;|
|00000760| 0d 0a 7d 0d 0a 0d 0a 66 | 75 6e 63 74 69 6f 6e 20 |..}....f|unction |
|00000770| 73 74 72 69 6e 67 20 47 | 65 74 56 61 6c 75 65 32 |string G|etValue2|
|00000780| 28 29 0d 0a 7b 0d 0a 09 | 72 65 74 75 72 6e 20 56 |()..{...|return V|
|00000790| 61 6c 75 65 32 3b 0d 0a | 7d 0d 0a 0d 0a 66 75 6e |alue2;..|}....fun|
|000007a0| 63 74 69 6f 6e 20 4e 6f | 74 69 66 79 28 62 79 74 |ction No|tify(byt|
|000007b0| 65 20 45 29 0d 0a 7b 0d | 0a 09 69 66 28 4e 6f 74 |e E)..{.|..if(Not|
|000007c0| 69 66 79 4f 77 6e 65 72 | 20 21 3d 20 4e 6f 6e 65 |ifyOwner| != None|
|000007d0| 29 0d 0a 09 7b 0d 0a 09 | 09 4e 6f 74 69 66 79 4f |)...{...|.NotifyO|
|000007e0| 77 6e 65 72 2e 4e 6f 74 | 69 66 79 28 45 29 3b 0d |wner.Not|ify(E);.|
|000007f0| 0a 09 7d 20 65 6c 73 65 | 20 7b 0d 0a 09 09 53 75 |..} else| {....Su|
|00000800| 70 65 72 2e 4e 6f 74 69 | 66 79 28 45 29 3b 0d 0a |per.Noti|fy(E);..|
|00000810| 09 7d 0d 0a 7d 0d 0a 0d | 0a 66 75 6e 63 74 69 6f |.}..}...|.functio|
|00000820| 6e 20 49 6e 73 65 72 74 | 54 65 78 74 28 73 74 72 |n Insert|Text(str|
|00000830| 69 6e 67 20 54 65 78 74 | 29 0d 0a 7b 0d 0a 09 6c |ing Text|)..{...l|
|00000840| 6f 63 61 6c 20 69 6e 74 | 20 69 3b 0d 0a 0d 0a 09 |ocal int| i;.....|
|00000850| 66 6f 72 28 69 3d 30 3b | 69 3c 4c 65 6e 28 54 65 |for(i=0;|i<Len(Te|
|00000860| 78 74 29 3b 69 2b 2b 29 | 0d 0a 09 09 49 6e 73 65 |xt);i++)|....Inse|
|00000870| 72 74 28 41 73 63 28 4d | 69 64 28 54 65 78 74 2c |rt(Asc(M|id(Text,|
|00000880| 69 2c 31 29 29 29 3b 0d | 0a 7d 0d 0a 0d 0a 2f 2f |i,1)));.|.}....//|
|00000890| 20 49 6e 73 65 72 74 73 | 20 61 20 63 68 61 72 61 | Inserts| a chara|
|000008a0| 63 74 65 72 20 61 74 20 | 74 68 65 20 63 75 72 72 |cter at |the curr|
|000008b0| 65 6e 74 20 63 61 72 65 | 74 20 70 6f 73 69 74 69 |ent care|t positi|
|000008c0| 6f 6e 0d 0a 66 75 6e 63 | 74 69 6f 6e 20 62 6f 6f |on..func|tion boo|
|000008d0| 6c 20 49 6e 73 65 72 74 | 28 62 79 74 65 20 43 29 |l Insert|(byte C)|
|000008e0| 0d 0a 7b 0d 0a 09 6c 6f | 63 61 6c 20 73 74 72 69 |..{...lo|cal stri|
|000008f0| 6e 67 09 4e 65 77 56 61 | 6c 75 65 3b 0d 0a 0d 0a |ng.NewVa|lue;....|
|00000900| 09 4e 65 77 56 61 6c 75 | 65 20 3d 20 4c 65 66 74 |.NewValu|e = Left|
|00000910| 28 56 61 6c 75 65 2c 20 | 43 61 72 65 74 4f 66 66 |(Value, |CaretOff|
|00000920| 73 65 74 29 20 24 20 43 | 68 72 28 43 29 20 24 20 |set) $ C|hr(C) $ |
|00000930| 4d 69 64 28 56 61 6c 75 | 65 2c 20 43 61 72 65 74 |Mid(Valu|e, Caret|
|00000940| 4f 66 66 73 65 74 29 3b | 0d 0a 0d 0a 09 69 66 28 |Offset);|.....if(|
|00000950| 4c 65 6e 28 4e 65 77 56 | 61 6c 75 65 29 20 3e 20 |Len(NewV|alue) > |
|00000960| 4d 61 78 4c 65 6e 67 74 | 68 29 20 0d 0a 09 09 72 |MaxLengt|h) ....r|
|00000970| 65 74 75 72 6e 20 46 61 | 6c 73 65 3b 0d 0a 0d 0a |eturn Fa|lse;....|
|00000980| 09 43 61 72 65 74 4f 66 | 66 73 65 74 2b 2b 3b 0d |.CaretOf|fset++;.|
|00000990| 0a 0d 0a 09 56 61 6c 75 | 65 20 3d 20 4e 65 77 56 |....Valu|e = NewV|
|000009a0| 61 6c 75 65 3b 0d 0a 09 | 69 66 28 62 44 65 6c 61 |alue;...|if(bDela|
|000009b0| 79 65 64 4e 6f 74 69 66 | 79 29 0d 0a 09 09 62 43 |yedNotif|y)....bC|
|000009c0| 68 61 6e 67 65 50 65 6e | 64 69 6e 67 20 3d 20 54 |hangePen|ding = T|
|000009d0| 72 75 65 3b 0d 0a 09 65 | 6c 73 65 0d 0a 09 09 4e |rue;...e|lse....N|
|000009e0| 6f 74 69 66 79 28 44 45 | 5f 43 68 61 6e 67 65 29 |otify(DE|_Change)|
|000009f0| 3b 0d 0a 09 72 65 74 75 | 72 6e 20 54 72 75 65 3b |;...retu|rn True;|
|00000a00| 0d 0a 7d 0d 0a 0d 0a 66 | 75 6e 63 74 69 6f 6e 20 |..}....f|unction |
|00000a10| 62 6f 6f 6c 20 42 61 63 | 6b 73 70 61 63 65 28 29 |bool Bac|kspace()|
|00000a20| 0d 0a 7b 0d 0a 09 6c 6f | 63 61 6c 20 73 74 72 69 |..{...lo|cal stri|
|00000a30| 6e 67 09 4e 65 77 56 61 | 6c 75 65 3b 0d 0a 0d 0a |ng.NewVa|lue;....|
|00000a40| 09 69 66 28 43 61 72 65 | 74 4f 66 66 73 65 74 20 |.if(Care|tOffset |
|00000a50| 3d 3d 20 30 29 20 72 65 | 74 75 72 6e 20 46 61 6c |== 0) re|turn Fal|
|00000a60| 73 65 3b 0d 0a 0d 0a 09 | 4e 65 77 56 61 6c 75 65 |se;.....|NewValue|
|00000a70| 20 3d 20 4c 65 66 74 28 | 56 61 6c 75 65 2c 20 43 | = Left(|Value, C|
|00000a80| 61 72 65 74 4f 66 66 73 | 65 74 20 2d 20 31 29 20 |aretOffs|et - 1) |
|00000a90| 24 20 4d 69 64 28 56 61 | 6c 75 65 2c 20 43 61 72 |$ Mid(Va|lue, Car|
|00000aa0| 65 74 4f 66 66 73 65 74 | 29 3b 0d 0a 09 43 61 72 |etOffset|);...Car|
|00000ab0| 65 74 4f 66 66 73 65 74 | 2d 2d 3b 0d 0a 0d 0a 09 |etOffset|--;.....|
|00000ac0| 56 61 6c 75 65 20 3d 20 | 4e 65 77 56 61 6c 75 65 |Value = |NewValue|
|00000ad0| 3b 0d 0a 09 69 66 28 62 | 44 65 6c 61 79 65 64 4e |;...if(b|DelayedN|
|00000ae0| 6f 74 69 66 79 29 0d 0a | 09 09 62 43 68 61 6e 67 |otify)..|..bChang|
|00000af0| 65 50 65 6e 64 69 6e 67 | 20 3d 20 54 72 75 65 3b |ePending| = True;|
|00000b00| 0d 0a 09 65 6c 73 65 0d | 0a 09 09 4e 6f 74 69 66 |...else.|...Notif|
|00000b10| 79 28 44 45 5f 43 68 61 | 6e 67 65 29 3b 0d 0a 09 |y(DE_Cha|nge);...|
|00000b20| 72 65 74 75 72 6e 20 54 | 72 75 65 3b 0d 0a 7d 0d |return T|rue;..}.|
|00000b30| 0a 0d 0a 66 75 6e 63 74 | 69 6f 6e 20 62 6f 6f 6c |...funct|ion bool|
|00000b40| 20 44 65 6c 65 74 65 28 | 29 0d 0a 7b 0d 0a 09 6c | Delete(|)..{...l|
|00000b50| 6f 63 61 6c 20 73 74 72 | 69 6e 67 09 4e 65 77 56 |ocal str|ing.NewV|
|00000b60| 61 6c 75 65 3b 0d 0a 0d | 0a 09 69 66 28 43 61 72 |alue;...|..if(Car|
|00000b70| 65 74 4f 66 66 73 65 74 | 20 3d 3d 20 4c 65 6e 28 |etOffset| == Len(|
|00000b80| 56 61 6c 75 65 29 29 20 | 72 65 74 75 72 6e 20 46 |Value)) |return F|
|00000b90| 61 6c 73 65 3b 0d 0a 0d | 0a 09 4e 65 77 56 61 6c |alse;...|..NewVal|
|00000ba0| 75 65 20 3d 20 4c 65 66 | 74 28 56 61 6c 75 65 2c |ue = Lef|t(Value,|
|00000bb0| 20 43 61 72 65 74 4f 66 | 66 73 65 74 29 20 24 20 | CaretOf|fset) $ |
|00000bc0| 4d 69 64 28 56 61 6c 75 | 65 2c 20 43 61 72 65 74 |Mid(Valu|e, Caret|
|00000bd0| 4f 66 66 73 65 74 20 2b | 20 31 29 3b 0d 0a 0d 0a |Offset +| 1);....|
|00000be0| 09 56 61 6c 75 65 20 3d | 20 4e 65 77 56 61 6c 75 |.Value =| NewValu|
|00000bf0| 65 3b 0d 0a 09 4e 6f 74 | 69 66 79 28 44 45 5f 43 |e;...Not|ify(DE_C|
|00000c00| 68 61 6e 67 65 29 3b 0d | 0a 09 72 65 74 75 72 6e |hange);.|..return|
|00000c10| 20 54 72 75 65 3b 0d 0a | 7d 0d 0a 0d 0a 66 75 6e | True;..|}....fun|
|00000c20| 63 74 69 6f 6e 20 62 6f | 6f 6c 20 57 6f 72 64 4c |ction bo|ol WordL|
|00000c30| 65 66 74 28 29 0d 0a 7b | 0d 0a 09 77 68 69 6c 65 |eft()..{|...while|
|00000c40| 28 43 61 72 65 74 4f 66 | 66 73 65 74 20 3e 20 30 |(CaretOf|fset > 0|
|00000c50| 20 26 26 20 4d 69 64 28 | 56 61 6c 75 65 2c 20 43 | && Mid(|Value, C|
|00000c60| 61 72 65 74 4f 66 66 73 | 65 74 20 2d 20 31 2c 20 |aretOffs|et - 1, |
|00000c70| 31 29 20 3d 3d 20 22 20 | 22 29 0d 0a 09 09 43 61 |1) == " |")....Ca|
|00000c80| 72 65 74 4f 66 66 73 65 | 74 2d 2d 3b 0d 0a 09 77 |retOffse|t--;...w|
|00000c90| 68 69 6c 65 28 43 61 72 | 65 74 4f 66 66 73 65 74 |hile(Car|etOffset|
|00000ca0| 20 3e 20 30 20 26 26 20 | 4d 69 64 28 56 61 6c 75 | > 0 && |Mid(Valu|
|00000cb0| 65 2c 20 43 61 72 65 74 | 4f 66 66 73 65 74 20 2d |e, Caret|Offset -|
|00000cc0| 20 31 2c 20 31 29 20 21 | 3d 20 22 20 22 29 0d 0a | 1, 1) !|= " ")..|
|00000cd0| 09 09 43 61 72 65 74 4f | 66 66 73 65 74 2d 2d 3b |..CaretO|ffset--;|
|00000ce0| 0d 0a 0d 0a 09 4c 61 73 | 74 44 72 61 77 54 69 6d |.....Las|tDrawTim|
|00000cf0| 65 20 3d 20 47 65 74 4c | 65 76 65 6c 28 29 2e 54 |e = GetL|evel().T|
|00000d00| 69 6d 65 53 65 63 6f 6e | 64 73 3b 0d 0a 09 62 53 |imeSecon|ds;...bS|
|00000d10| 68 6f 77 43 61 72 65 74 | 20 3d 20 54 72 75 65 3b |howCaret| = True;|
|00000d20| 0d 0a 0d 0a 09 72 65 74 | 75 72 6e 20 54 72 75 65 |.....ret|urn True|
|00000d30| 3b 09 0d 0a 7d 0d 0a 0d | 0a 66 75 6e 63 74 69 6f |;...}...|.functio|
|00000d40| 6e 20 62 6f 6f 6c 20 4d | 6f 76 65 4c 65 66 74 28 |n bool M|oveLeft(|
|00000d50| 29 0d 0a 7b 0d 0a 09 69 | 66 28 43 61 72 65 74 4f |)..{...i|f(CaretO|
|00000d60| 66 66 73 65 74 20 3d 3d | 20 30 29 20 72 65 74 75 |ffset ==| 0) retu|
|00000d70| 72 6e 20 46 61 6c 73 65 | 3b 0d 0a 09 43 61 72 65 |rn False|;...Care|
|00000d80| 74 4f 66 66 73 65 74 2d | 2d 3b 0d 0a 0d 0a 09 4c |tOffset-|-;.....L|
|00000d90| 61 73 74 44 72 61 77 54 | 69 6d 65 20 3d 20 47 65 |astDrawT|ime = Ge|
|00000da0| 74 4c 65 76 65 6c 28 29 | 2e 54 69 6d 65 53 65 63 |tLevel()|.TimeSec|
|00000db0| 6f 6e 64 73 3b 0d 0a 09 | 62 53 68 6f 77 43 61 72 |onds;...|bShowCar|
|00000dc0| 65 74 20 3d 20 54 72 75 | 65 3b 0d 0a 0d 0a 09 72 |et = Tru|e;.....r|
|00000dd0| 65 74 75 72 6e 20 54 72 | 75 65 3b 09 0d 0a 7d 0d |eturn Tr|ue;...}.|
|00000de0| 0a 0d 0a 66 75 6e 63 74 | 69 6f 6e 20 62 6f 6f 6c |...funct|ion bool|
|00000df0| 20 4d 6f 76 65 52 69 67 | 68 74 28 29 0d 0a 7b 0d | MoveRig|ht()..{.|
|00000e00| 0a 09 69 66 28 43 61 72 | 65 74 4f 66 66 73 65 74 |..if(Car|etOffset|
|00000e10| 20 3d 3d 20 4c 65 6e 28 | 56 61 6c 75 65 29 29 20 | == Len(|Value)) |
|00000e20| 72 65 74 75 72 6e 20 46 | 61 6c 73 65 3b 0d 0a 09 |return F|alse;...|
|00000e30| 43 61 72 65 74 4f 66 66 | 73 65 74 2b 2b 3b 0d 0a |CaretOff|set++;..|
|00000e40| 0d 0a 09 4c 61 73 74 44 | 72 61 77 54 69 6d 65 20 |...LastD|rawTime |
|00000e50| 3d 20 47 65 74 4c 65 76 | 65 6c 28 29 2e 54 69 6d |= GetLev|el().Tim|
|00000e60| 65 53 65 63 6f 6e 64 73 | 3b 0d 0a 09 62 53 68 6f |eSeconds|;...bSho|
|00000e70| 77 43 61 72 65 74 20 3d | 20 54 72 75 65 3b 0d 0a |wCaret =| True;..|
|00000e80| 0d 0a 09 72 65 74 75 72 | 6e 20 54 72 75 65 3b 09 |...retur|n True;.|
|00000e90| 0d 0a 7d 0d 0a 0d 0a 66 | 75 6e 63 74 69 6f 6e 20 |..}....f|unction |
|00000ea0| 62 6f 6f 6c 20 57 6f 72 | 64 52 69 67 68 74 28 29 |bool Wor|dRight()|
|00000eb0| 0d 0a 7b 0d 0a 09 77 68 | 69 6c 65 28 43 61 72 65 |..{...wh|ile(Care|
|00000ec0| 74 4f 66 66 73 65 74 20 | 3c 20 4c 65 6e 28 56 61 |tOffset |< Len(Va|
|00000ed0| 6c 75 65 29 20 26 26 20 | 4d 69 64 28 56 61 6c 75 |lue) && |Mid(Valu|
|00000ee0| 65 2c 20 43 61 72 65 74 | 4f 66 66 73 65 74 2c 20 |e, Caret|Offset, |
|00000ef0| 31 29 20 21 3d 20 22 20 | 22 29 0d 0a 09 09 43 61 |1) != " |")....Ca|
|00000f00| 72 65 74 4f 66 66 73 65 | 74 2b 2b 3b 0d 0a 09 77 |retOffse|t++;...w|
|00000f10| 68 69 6c 65 28 43 61 72 | 65 74 4f 66 66 73 65 74 |hile(Car|etOffset|
|00000f20| 20 3c 20 4c 65 6e 28 56 | 61 6c 75 65 29 20 26 26 | < Len(V|alue) &&|
|00000f30| 20 4d 69 64 28 56 61 6c | 75 65 2c 20 43 61 72 65 | Mid(Val|ue, Care|
|00000f40| 74 4f 66 66 73 65 74 2c | 20 31 29 20 3d 3d 20 22 |tOffset,| 1) == "|
|00000f50| 20 22 29 0d 0a 09 09 43 | 61 72 65 74 4f 66 66 73 | ")....C|aretOffs|
|00000f60| 65 74 2b 2b 3b 0d 0a 0d | 0a 09 4c 61 73 74 44 72 |et++;...|..LastDr|
|00000f70| 61 77 54 69 6d 65 20 3d | 20 47 65 74 4c 65 76 65 |awTime =| GetLeve|
|00000f80| 6c 28 29 2e 54 69 6d 65 | 53 65 63 6f 6e 64 73 3b |l().Time|Seconds;|
|00000f90| 0d 0a 09 62 53 68 6f 77 | 43 61 72 65 74 20 3d 20 |...bShow|Caret = |
|00000fa0| 54 72 75 65 3b 0d 0a 0d | 0a 09 72 65 74 75 72 6e |True;...|..return|
|00000fb0| 20 54 72 75 65 3b 09 0d | 0a 7d 0d 0a 0d 0a 66 75 | True;..|.}....fu|
|00000fc0| 6e 63 74 69 6f 6e 20 62 | 6f 6f 6c 20 4d 6f 76 65 |nction b|ool Move|
|00000fd0| 48 6f 6d 65 28 29 0d 0a | 7b 0d 0a 09 43 61 72 65 |Home()..|{...Care|
|00000fe0| 74 4f 66 66 73 65 74 20 | 3d 20 30 3b 0d 0a 0d 0a |tOffset |= 0;....|
|00000ff0| 09 4c 61 73 74 44 72 61 | 77 54 69 6d 65 20 3d 20 |.LastDra|wTime = |
|00001000| 47 65 74 4c 65 76 65 6c | 28 29 2e 54 69 6d 65 53 |GetLevel|().TimeS|
|00001010| 65 63 6f 6e 64 73 3b 0d | 0a 09 62 53 68 6f 77 43 |econds;.|..bShowC|
|00001020| 61 72 65 74 20 3d 20 54 | 72 75 65 3b 0d 0a 0d 0a |aret = T|rue;....|
|00001030| 09 72 65 74 75 72 6e 20 | 54 72 75 65 3b 09 0d 0a |.return |True;...|
|00001040| 7d 0d 0a 0d 0a 66 75 6e | 63 74 69 6f 6e 20 62 6f |}....fun|ction bo|
|00001050| 6f 6c 20 4d 6f 76 65 45 | 6e 64 28 29 0d 0a 7b 0d |ol MoveE|nd()..{.|
|00001060| 0a 09 43 61 72 65 74 4f | 66 66 73 65 74 20 3d 20 |..CaretO|ffset = |
|00001070| 4c 65 6e 28 56 61 6c 75 | 65 29 3b 0d 0a 0d 0a 09 |Len(Valu|e);.....|
|00001080| 4c 61 73 74 44 72 61 77 | 54 69 6d 65 20 3d 20 47 |LastDraw|Time = G|
|00001090| 65 74 4c 65 76 65 6c 28 | 29 2e 54 69 6d 65 53 65 |etLevel(|).TimeSe|
|000010a0| 63 6f 6e 64 73 3b 0d 0a | 09 62 53 68 6f 77 43 61 |conds;..|.bShowCa|
|000010b0| 72 65 74 20 3d 20 54 72 | 75 65 3b 0d 0a 0d 0a 09 |ret = Tr|ue;.....|
|000010c0| 72 65 74 75 72 6e 20 54 | 72 75 65 3b 09 0d 0a 7d |return T|rue;...}|
|000010d0| 0d 0a 0d 0a 66 75 6e 63 | 74 69 6f 6e 20 45 64 69 |....func|tion Edi|
|000010e0| 74 43 6f 70 79 28 29 0d | 0a 7b 0d 0a 09 69 66 28 |tCopy().|.{...if(|
|000010f0| 62 41 6c 6c 53 65 6c 65 | 63 74 65 64 20 7c 7c 20 |bAllSele|cted || |
|00001100| 21 62 43 61 6e 45 64 69 | 74 29 0d 0a 09 09 47 65 |!bCanEdi|t)....Ge|
|00001110| 74 50 6c 61 79 65 72 4f | 77 6e 65 72 28 29 2e 43 |tPlayerO|wner().C|
|00001120| 6f 70 79 54 6f 43 6c 69 | 70 62 6f 61 72 64 28 56 |opyToCli|pboard(V|
|00001130| 61 6c 75 65 29 3b 0d 0a | 7d 0d 0a 0d 0a 66 75 6e |alue);..|}....fun|
|00001140| 63 74 69 6f 6e 20 45 64 | 69 74 50 61 73 74 65 28 |ction Ed|itPaste(|
|00001150| 29 0d 0a 7b 0d 0a 09 69 | 66 28 62 43 61 6e 45 64 |)..{...i|f(bCanEd|
|00001160| 69 74 29 0d 0a 09 7b 0d | 0a 09 09 69 66 28 62 41 |it)...{.|...if(bA|
|00001170| 6c 6c 53 65 6c 65 63 74 | 65 64 29 0d 0a 09 09 09 |llSelect|ed).....|
|00001180| 43 6c 65 61 72 28 29 3b | 0d 0a 09 09 49 6e 73 65 |Clear();|....Inse|
|00001190| 72 74 54 65 78 74 28 47 | 65 74 50 6c 61 79 65 72 |rtText(G|etPlayer|
|000011a0| 4f 77 6e 65 72 28 29 2e | 50 61 73 74 65 46 72 6f |Owner().|PasteFro|
|000011b0| 6d 43 6c 69 70 62 6f 61 | 72 64 28 29 29 3b 0d 0a |mClipboa|rd());..|
|000011c0| 09 7d 0d 0a 7d 0d 0a 0d | 0a 66 75 6e 63 74 69 6f |.}..}...|.functio|
|000011d0| 6e 20 45 64 69 74 43 75 | 74 28 29 0d 0a 7b 0d 0a |n EditCu|t()..{..|
|000011e0| 09 69 66 28 62 43 61 6e | 45 64 69 74 29 0d 0a 09 |.if(bCan|Edit)...|
|000011f0| 7b 0d 0a 09 09 69 66 28 | 62 41 6c 6c 53 65 6c 65 |{....if(|bAllSele|
|00001200| 63 74 65 64 29 0d 0a 09 | 09 7b 0d 0a 09 09 09 47 |cted)...|.{.....G|
|00001210| 65 74 50 6c 61 79 65 72 | 4f 77 6e 65 72 28 29 2e |etPlayer|Owner().|
|00001220| 43 6f 70 79 54 6f 43 6c | 69 70 62 6f 61 72 64 28 |CopyToCl|ipboard(|
|00001230| 56 61 6c 75 65 29 3b 0d | 0a 09 09 09 62 41 6c 6c |Value);.|....bAll|
|00001240| 53 65 6c 65 63 74 65 64 | 20 3d 20 46 61 6c 73 65 |Selected| = False|
|00001250| 3b 0d 0a 09 09 09 43 6c | 65 61 72 28 29 3b 0d 0a |;.....Cl|ear();..|
|00001260| 09 09 7d 0d 0a 09 7d 0d | 0a 09 65 6c 73 65 0d 0a |..}...}.|..else..|
|00001270| 09 09 45 64 69 74 43 6f | 70 79 28 29 3b 0d 0a 7d |..EditCo|py();..}|
|00001280| 0d 0a 0d 0a 66 75 6e 63 | 74 69 6f 6e 20 4b 65 79 |....func|tion Key|
|00001290| 54 79 70 65 28 20 69 6e | 74 20 4b 65 79 2c 20 66 |Type( in|t Key, f|
|000012a0| 6c 6f 61 74 20 4d 6f 75 | 73 65 58 2c 20 66 6c 6f |loat Mou|seX, flo|
|000012b0| 61 74 20 4d 6f 75 73 65 | 59 20 29 0d 0a 7b 0d 0a |at Mouse|Y )..{..|
|000012c0| 09 69 66 28 62 43 61 6e | 45 64 69 74 20 26 26 20 |.if(bCan|Edit && |
|000012d0| 62 4b 65 79 44 6f 77 6e | 29 0d 0a 09 7b 0d 0a 09 |bKeyDown|)...{...|
|000012e0| 09 69 66 28 20 21 62 43 | 6f 6e 74 72 6f 6c 44 6f |.if( !bC|ontrolDo|
|000012f0| 77 6e 20 29 0d 0a 09 09 | 7b 0d 0a 09 09 09 69 66 |wn )....|{.....if|
|00001300| 28 62 41 6c 6c 53 65 6c | 65 63 74 65 64 29 0d 0a |(bAllSel|ected)..|
|00001310| 09 09 09 09 43 6c 65 61 | 72 28 29 3b 0d 0a 0d 0a |....Clea|r();....|
|00001320| 09 09 09 62 41 6c 6c 53 | 65 6c 65 63 74 65 64 20 |...bAllS|elected |
|00001330| 3d 20 46 61 6c 73 65 3b | 0d 0a 0d 0a 09 09 09 69 |= False;|.......i|
|00001340| 66 28 62 4e 75 6d 65 72 | 69 63 4f 6e 6c 79 29 0d |f(bNumer|icOnly).|
|00001350| 0a 09 09 09 7b 0d 0a 09 | 09 09 09 69 66 28 20 4b |....{...|...if( K|
|00001360| 65 79 3e 3d 30 78 33 30 | 20 26 26 20 4b 65 79 3c |ey>=0x30| && Key<|
|00001370| 3d 30 78 33 39 20 29 20 | 20 0d 0a 09 09 09 09 7b |=0x39 ) | ......{|
|00001380| 0d 0a 09 09 09 09 09 49 | 6e 73 65 72 74 28 4b 65 |.......I|nsert(Ke|
|00001390| 79 29 3b 0d 0a 09 09 09 | 09 7d 0d 0a 09 09 09 7d |y);.....|.}.....}|
|000013a0| 0d 0a 09 09 09 65 6c 73 | 65 0d 0a 09 09 09 7b 0d |.....els|e.....{.|
|000013b0| 0a 09 09 09 09 69 66 28 | 20 4b 65 79 3e 3d 30 78 |.....if(| Key>=0x|
|000013c0| 32 30 20 26 26 20 4b 65 | 79 3c 30 78 38 30 20 29 |20 && Ke|y<0x80 )|
|000013d0| 0d 0a 09 09 09 09 7b 0d | 0a 09 09 09 09 09 49 6e |......{.|......In|
|000013e0| 73 65 72 74 28 4b 65 79 | 29 3b 0d 0a 09 09 09 09 |sert(Key|);......|
|000013f0| 7d 0d 0a 09 09 09 7d 0d | 0a 09 09 7d 0d 0a 09 7d |}.....}.|...}...}|
|00001400| 0d 0a 7d 0d 0a 0d 0a 66 | 75 6e 63 74 69 6f 6e 20 |..}....f|unction |
|00001410| 4b 65 79 55 70 28 69 6e | 74 20 4b 65 79 2c 20 66 |KeyUp(in|t Key, f|
|00001420| 6c 6f 61 74 20 58 2c 20 | 66 6c 6f 61 74 20 59 29 |loat X, |float Y)|
|00001430| 0d 0a 7b 0d 0a 09 6c 6f | 63 61 6c 20 50 6c 61 79 |..{...lo|cal Play|
|00001440| 65 72 50 61 77 6e 20 50 | 3b 0d 0a 09 62 4b 65 79 |erPawn P|;...bKey|
|00001450| 44 6f 77 6e 20 3d 20 46 | 61 6c 73 65 3b 0d 0a 09 |Down = F|alse;...|
|00001460| 50 20 3d 20 47 65 74 50 | 6c 61 79 65 72 4f 77 6e |P = GetP|layerOwn|
|00001470| 65 72 28 29 3b 0d 0a 09 | 73 77 69 74 63 68 20 28 |er();...|switch (|
|00001480| 4b 65 79 29 0d 0a 09 7b | 0d 0a 09 63 61 73 65 20 |Key)...{|...case |
|00001490| 50 2e 45 49 6e 70 75 74 | 4b 65 79 2e 49 4b 5f 43 |P.EInput|Key.IK_C|
|000014a0| 74 72 6c 3a 0d 0a 09 09 | 62 43 6f 6e 74 72 6f 6c |trl:....|bControl|
|000014b0| 44 6f 77 6e 20 3d 20 46 | 61 6c 73 65 3b 0d 0a 09 |Down = F|alse;...|
|000014c0| 09 62 72 65 61 6b 3b 0d | 0a 09 63 61 73 65 20 50 |.break;.|..case P|
|000014d0| 2e 45 49 6e 70 75 74 4b | 65 79 2e 49 4b 5f 53 68 |.EInputK|ey.IK_Sh|
|000014e0| 69 66 74 3a 0d 0a 09 09 | 62 53 68 69 66 74 44 6f |ift:....|bShiftDo|
|000014f0| 77 6e 20 3d 20 46 61 6c | 73 65 3b 0d 0a 09 09 62 |wn = Fal|se;....b|
|00001500| 72 65 61 6b 3b 0d 0a 09 | 7d 0d 0a 7d 0d 0a 0d 0a |reak;...|}..}....|
|00001510| 66 75 6e 63 74 69 6f 6e | 20 4b 65 79 44 6f 77 6e |function| KeyDown|
|00001520| 28 69 6e 74 20 4b 65 79 | 2c 20 66 6c 6f 61 74 20 |(int Key|, float |
|00001530| 58 2c 20 66 6c 6f 61 74 | 20 59 29 0d 0a 7b 0d 0a |X, float| Y)..{..|
|00001540| 09 6c 6f 63 61 6c 20 50 | 6c 61 79 65 72 50 61 77 |.local P|layerPaw|
|00001550| 6e 20 50 3b 0d 0a 0d 0a | 09 62 4b 65 79 44 6f 77 |n P;....|.bKeyDow|
|00001560| 6e 20 3d 20 54 72 75 65 | 3b 0d 0a 09 50 20 3d 20 |n = True|;...P = |
|00001570| 47 65 74 50 6c 61 79 65 | 72 4f 77 6e 65 72 28 29 |GetPlaye|rOwner()|
|00001580| 3b 0d 0a 0d 0a 09 73 77 | 69 74 63 68 20 28 4b 65 |;.....sw|itch (Ke|
|00001590| 79 29 0d 0a 09 7b 0d 0a | 09 63 61 73 65 20 50 2e |y)...{..|.case P.|
|000015a0| 45 49 6e 70 75 74 4b 65 | 79 2e 49 4b 5f 43 74 72 |EInputKe|y.IK_Ctr|
|000015b0| 6c 3a 0d 0a 09 09 62 43 | 6f 6e 74 72 6f 6c 44 6f |l:....bC|ontrolDo|
|000015c0| 77 6e 20 3d 20 54 72 75 | 65 3b 0d 0a 09 09 62 72 |wn = Tru|e;....br|
|000015d0| 65 61 6b 3b 0d 0a 09 63 | 61 73 65 20 50 2e 45 49 |eak;...c|ase P.EI|
|000015e0| 6e 70 75 74 4b 65 79 2e | 49 4b 5f 53 68 69 66 74 |nputKey.|IK_Shift|
|000015f0| 3a 0d 0a 09 09 62 53 68 | 69 66 74 44 6f 77 6e 20 |:....bSh|iftDown |
|00001600| 3d 20 54 72 75 65 3b 0d | 0a 09 09 62 72 65 61 6b |= True;.|...break|
|00001610| 3b 0d 0a 09 63 61 73 65 | 20 50 2e 45 49 6e 70 75 |;...case| P.EInpu|
|00001620| 74 4b 65 79 2e 49 4b 5f | 45 73 63 61 70 65 3a 0d |tKey.IK_|Escape:.|
|00001630| 0a 09 09 62 72 65 61 6b | 3b 0d 0a 09 63 61 73 65 |...break|;...case|
|00001640| 20 50 2e 45 49 6e 70 75 | 74 4b 65 79 2e 49 4b 5f | P.EInpu|tKey.IK_|
|00001650| 45 6e 74 65 72 3a 0d 0a | 09 09 69 66 28 62 43 61 |Enter:..|..if(bCa|
|00001660| 6e 45 64 69 74 29 0d 0a | 09 09 7b 0d 0a 09 09 09 |nEdit)..|..{.....|
|00001670| 69 66 28 62 48 69 73 74 | 6f 72 79 29 0d 0a 09 09 |if(bHist|ory)....|
|00001680| 09 7b 0d 0a 09 09 09 09 | 69 66 28 56 61 6c 75 65 |.{......|if(Value|
|00001690| 20 21 3d 20 22 22 29 0d | 0a 09 09 09 09 7b 0d 0a | != "").|.....{..|
|000016a0| 09 09 09 09 09 43 75 72 | 72 65 6e 74 48 69 73 74 |.....Cur|rentHist|
|000016b0| 6f 72 79 20 3d 20 55 57 | 69 6e 64 6f 77 45 64 69 |ory = UW|indowEdi|
|000016c0| 74 42 6f 78 48 69 73 74 | 6f 72 79 28 48 69 73 74 |tBoxHist|ory(Hist|
|000016d0| 6f 72 79 4c 69 73 74 2e | 49 6e 73 65 72 74 28 63 |oryList.|Insert(c|
|000016e0| 6c 61 73 73 27 55 57 69 | 6e 64 6f 77 45 64 69 74 |lass'UWi|ndowEdit|
|000016f0| 42 6f 78 48 69 73 74 6f | 72 79 27 29 29 3b 0d 0a |BoxHisto|ry'));..|
|00001700| 09 09 09 09 09 43 75 72 | 72 65 6e 74 48 69 73 74 |.....Cur|rentHist|
|00001710| 6f 72 79 2e 48 69 73 74 | 6f 72 79 54 65 78 74 20 |ory.Hist|oryText |
|00001720| 3d 20 56 61 6c 75 65 3b | 0d 0a 09 09 09 09 7d 0d |= Value;|......}.|
|00001730| 0a 09 09 09 09 43 75 72 | 72 65 6e 74 48 69 73 74 |.....Cur|rentHist|
|00001740| 6f 72 79 20 3d 20 48 69 | 73 74 6f 72 79 4c 69 73 |ory = Hi|storyLis|
|00001750| 74 3b 0d 0a 09 09 09 7d | 0d 0a 09 09 09 4e 6f 74 |t;.....}|.....Not|
|00001760| 69 66 79 28 44 45 5f 45 | 6e 74 65 72 50 72 65 73 |ify(DE_E|nterPres|
|00001770| 73 65 64 29 3b 0d 0a 09 | 09 7d 0d 0a 09 09 62 72 |sed);...|.}....br|
|00001780| 65 61 6b 3b 0d 0a 09 63 | 61 73 65 20 50 2e 45 49 |eak;...c|ase P.EI|
|00001790| 6e 70 75 74 4b 65 79 2e | 49 4b 5f 4d 6f 75 73 65 |nputKey.|IK_Mouse|
|000017a0| 57 68 65 65 6c 55 70 3a | 0d 0a 09 09 69 66 28 62 |WheelUp:|....if(b|
|000017b0| 43 61 6e 45 64 69 74 29 | 0d 0a 09 09 09 4e 6f 74 |CanEdit)|.....Not|
|000017c0| 69 66 79 28 44 45 5f 57 | 68 65 65 6c 55 70 50 72 |ify(DE_W|heelUpPr|
|000017d0| 65 73 73 65 64 29 3b 0d | 0a 09 09 62 72 65 61 6b |essed);.|...break|
|000017e0| 3b 0d 0a 09 63 61 73 65 | 20 50 2e 45 49 6e 70 75 |;...case| P.EInpu|
|000017f0| 74 4b 65 79 2e 49 4b 5f | 4d 6f 75 73 65 57 68 65 |tKey.IK_|MouseWhe|
|00001800| 65 6c 44 6f 77 6e 3a 0d | 0a 09 09 69 66 28 62 43 |elDown:.|...if(bC|
|00001810| 61 6e 45 64 69 74 29 0d | 0a 09 09 09 4e 6f 74 69 |anEdit).|....Noti|
|00001820| 66 79 28 44 45 5f 57 68 | 65 65 6c 44 6f 77 6e 50 |fy(DE_Wh|eelDownP|
|00001830| 72 65 73 73 65 64 29 3b | 0d 0a 09 09 62 72 65 61 |ressed);|....brea|
|00001840| 6b 3b 0d 0a 0d 0a 09 63 | 61 73 65 20 50 2e 45 49 |k;.....c|ase P.EI|
|00001850| 6e 70 75 74 4b 65 79 2e | 49 4b 5f 52 69 67 68 74 |nputKey.|IK_Right|
|00001860| 3a 0d 0a 09 09 69 66 28 | 62 43 61 6e 45 64 69 74 |:....if(|bCanEdit|
|00001870| 29 20 0d 0a 09 09 7b 0d | 0a 09 09 09 69 66 28 62 |) ....{.|....if(b|
|00001880| 43 6f 6e 74 72 6f 6c 44 | 6f 77 6e 29 0d 0a 09 09 |ControlD|own)....|
|00001890| 09 09 57 6f 72 64 52 69 | 67 68 74 28 29 3b 0d 0a |..WordRi|ght();..|
|000018a0| 09 09 09 65 6c 73 65 0d | 0a 09 09 09 09 4d 6f 76 |...else.|.....Mov|
|000018b0| 65 52 69 67 68 74 28 29 | 3b 0d 0a 09 09 7d 0d 0a |eRight()|;....}..|
|000018c0| 09 09 62 41 6c 6c 53 65 | 6c 65 63 74 65 64 20 3d |..bAllSe|lected =|
|000018d0| 20 46 61 6c 73 65 3b 0d | 0a 09 09 62 72 65 61 6b | False;.|...break|
|000018e0| 3b 0d 0a 09 63 61 73 65 | 20 50 2e 45 49 6e 70 75 |;...case| P.EInpu|
|000018f0| 74 4b 65 79 2e 49 4b 5f | 4c 65 66 74 3a 0d 0a 09 |tKey.IK_|Left:...|
|00001900| 09 69 66 28 62 43 61 6e | 45 64 69 74 29 0d 0a 09 |.if(bCan|Edit)...|
|00001910| 09 7b 0d 0a 09 09 09 69 | 66 28 62 43 6f 6e 74 72 |.{.....i|f(bContr|
|00001920| 6f 6c 44 6f 77 6e 29 0d | 0a 09 09 09 09 57 6f 72 |olDown).|.....Wor|
|00001930| 64 4c 65 66 74 28 29 3b | 0d 0a 09 09 09 65 6c 73 |dLeft();|.....els|
|00001940| 65 0d 0a 09 09 09 09 4d | 6f 76 65 4c 65 66 74 28 |e......M|oveLeft(|
|00001950| 29 3b 0d 0a 09 09 7d 0d | 0a 09 09 62 41 6c 6c 53 |);....}.|...bAllS|
|00001960| 65 6c 65 63 74 65 64 20 | 3d 20 46 61 6c 73 65 3b |elected |= False;|
|00001970| 0d 0a 09 09 62 72 65 61 | 6b 3b 0d 0a 09 63 61 73 |....brea|k;...cas|
|00001980| 65 20 50 2e 45 49 6e 70 | 75 74 4b 65 79 2e 49 4b |e P.EInp|utKey.IK|
|00001990| 5f 55 70 3a 0d 0a 09 09 | 69 66 28 62 43 61 6e 45 |_Up:....|if(bCanE|
|000019a0| 64 69 74 20 26 26 20 62 | 48 69 73 74 6f 72 79 29 |dit && b|History)|
|000019b0| 0d 0a 09 09 7b 0d 0a 09 | 09 09 62 41 6c 6c 53 65 |....{...|..bAllSe|
|000019c0| 6c 65 63 74 65 64 20 3d | 20 46 61 6c 73 65 3b 0d |lected =| False;.|
|000019d0| 0a 09 09 09 69 66 28 43 | 75 72 72 65 6e 74 48 69 |....if(C|urrentHi|
|000019e0| 73 74 6f 72 79 20 21 3d | 20 4e 6f 6e 65 20 26 26 |story !=| None &&|
|000019f0| 20 43 75 72 72 65 6e 74 | 48 69 73 74 6f 72 79 2e | Current|History.|
|00001a00| 4e 65 78 74 20 21 3d 20 | 4e 6f 6e 65 29 0d 0a 09 |Next != |None)...|
|00001a10| 09 09 7b 0d 0a 09 09 09 | 09 43 75 72 72 65 6e 74 |..{.....|.Current|
|00001a20| 48 69 73 74 6f 72 79 20 | 3d 20 55 57 69 6e 64 6f |History |= UWindo|
|00001a30| 77 45 64 69 74 42 6f 78 | 48 69 73 74 6f 72 79 28 |wEditBox|History(|
|00001a40| 43 75 72 72 65 6e 74 48 | 69 73 74 6f 72 79 2e 4e |CurrentH|istory.N|
|00001a50| 65 78 74 29 3b 0d 0a 09 | 09 09 09 53 65 74 56 61 |ext);...|...SetVa|
|00001a60| 6c 75 65 28 43 75 72 72 | 65 6e 74 48 69 73 74 6f |lue(Curr|entHisto|
|00001a70| 72 79 2e 48 69 73 74 6f | 72 79 54 65 78 74 29 3b |ry.Histo|ryText);|
|00001a80| 0d 0a 09 09 09 09 4d 6f | 76 65 45 6e 64 28 29 3b |......Mo|veEnd();|
|00001a90| 0d 0a 09 09 09 7d 0d 0a | 09 09 7d 0d 0a 09 09 62 |.....}..|..}....b|
|00001aa0| 72 65 61 6b 3b 0d 0a 09 | 63 61 73 65 20 50 2e 45 |reak;...|case P.E|
|00001ab0| 49 6e 70 75 74 4b 65 79 | 2e 49 4b 5f 44 6f 77 6e |InputKey|.IK_Down|
|00001ac0| 3a 0d 0a 09 09 69 66 28 | 62 43 61 6e 45 64 69 74 |:....if(|bCanEdit|
|00001ad0| 20 26 26 20 62 48 69 73 | 74 6f 72 79 29 0d 0a 09 | && bHis|tory)...|
|00001ae0| 09 7b 0d 0a 09 09 09 62 | 41 6c 6c 53 65 6c 65 63 |.{.....b|AllSelec|
|00001af0| 74 65 64 20 3d 20 46 61 | 6c 73 65 3b 0d 0a 09 09 |ted = Fa|lse;....|
|00001b00| 09 69 66 28 43 75 72 72 | 65 6e 74 48 69 73 74 6f |.if(Curr|entHisto|
|00001b10| 72 79 20 21 3d 20 4e 6f | 6e 65 20 26 26 20 43 75 |ry != No|ne && Cu|
|00001b20| 72 72 65 6e 74 48 69 73 | 74 6f 72 79 2e 50 72 65 |rrentHis|tory.Pre|
|00001b30| 76 20 21 3d 20 4e 6f 6e | 65 29 0d 0a 09 09 09 7b |v != Non|e).....{|
|00001b40| 0d 0a 09 09 09 09 43 75 | 72 72 65 6e 74 48 69 73 |......Cu|rrentHis|
|00001b50| 74 6f 72 79 20 3d 20 55 | 57 69 6e 64 6f 77 45 64 |tory = U|WindowEd|
|00001b60| 69 74 42 6f 78 48 69 73 | 74 6f 72 79 28 43 75 72 |itBoxHis|tory(Cur|
|00001b70| 72 65 6e 74 48 69 73 74 | 6f 72 79 2e 50 72 65 76 |rentHist|ory.Prev|
|00001b80| 29 3b 0d 0a 09 09 09 09 | 53 65 74 56 61 6c 75 65 |);......|SetValue|
|00001b90| 28 43 75 72 72 65 6e 74 | 48 69 73 74 6f 72 79 2e |(Current|History.|
|00001ba0| 48 69 73 74 6f 72 79 54 | 65 78 74 29 3b 0d 0a 09 |HistoryT|ext);...|
|00001bb0| 09 09 09 4d 6f 76 65 45 | 6e 64 28 29 3b 0d 0a 09 |...MoveE|nd();...|
|00001bc0| 09 09 7d 0d 0a 09 09 7d | 0d 0a 09 09 62 72 65 61 |..}....}|....brea|
|00001bd0| 6b 3b 0d 0a 09 63 61 73 | 65 20 50 2e 45 49 6e 70 |k;...cas|e P.EInp|
|00001be0| 75 74 4b 65 79 2e 49 4b | 5f 48 6f 6d 65 3a 0d 0a |utKey.IK|_Home:..|
|00001bf0| 09 09 69 66 28 62 43 61 | 6e 45 64 69 74 29 0d 0a |..if(bCa|nEdit)..|
|00001c00| 09 09 09 4d 6f 76 65 48 | 6f 6d 65 28 29 3b 0d 0a |...MoveH|ome();..|
|00001c10| 09 09 62 41 6c 6c 53 65 | 6c 65 63 74 65 64 20 3d |..bAllSe|lected =|
|00001c20| 20 46 61 6c 73 65 3b 0d | 0a 09 09 62 72 65 61 6b | False;.|...break|
|00001c30| 3b 0d 0a 09 63 61 73 65 | 20 50 2e 45 49 6e 70 75 |;...case| P.EInpu|
|00001c40| 74 4b 65 79 2e 49 4b 5f | 45 6e 64 3a 0d 0a 09 09 |tKey.IK_|End:....|
|00001c50| 69 66 28 62 43 61 6e 45 | 64 69 74 29 0d 0a 09 09 |if(bCanE|dit)....|
|00001c60| 09 4d 6f 76 65 45 6e 64 | 28 29 3b 0d 0a 09 09 62 |.MoveEnd|();....b|
|00001c70| 41 6c 6c 53 65 6c 65 63 | 74 65 64 20 3d 20 46 61 |AllSelec|ted = Fa|
|00001c80| 6c 73 65 3b 0d 0a 09 09 | 62 72 65 61 6b 3b 0d 0a |lse;....|break;..|
|00001c90| 09 63 61 73 65 20 50 2e | 45 49 6e 70 75 74 4b 65 |.case P.|EInputKe|
|00001ca0| 79 2e 49 4b 5f 42 61 63 | 6b 73 70 61 63 65 3a 0d |y.IK_Bac|kspace:.|
|00001cb0| 0a 09 09 69 66 28 62 43 | 61 6e 45 64 69 74 29 0d |...if(bC|anEdit).|
|00001cc0| 0a 09 09 7b 0d 0a 09 09 | 09 69 66 28 62 41 6c 6c |...{....|.if(bAll|
|00001cd0| 53 65 6c 65 63 74 65 64 | 29 0d 0a 09 09 09 09 43 |Selected|)......C|
|00001ce0| 6c 65 61 72 28 29 3b 0d | 0a 09 09 09 65 6c 73 65 |lear();.|....else|
|00001cf0| 0d 0a 09 09 09 09 42 61 | 63 6b 73 70 61 63 65 28 |......Ba|ckspace(|
|00001d00| 29 3b 0d 0a 09 09 7d 0d | 0a 09 09 62 41 6c 6c 53 |);....}.|...bAllS|
|00001d10| 65 6c 65 63 74 65 64 20 | 3d 20 46 61 6c 73 65 3b |elected |= False;|
|00001d20| 0d 0a 09 09 62 72 65 61 | 6b 3b 0d 0a 09 63 61 73 |....brea|k;...cas|
|00001d30| 65 20 50 2e 45 49 6e 70 | 75 74 4b 65 79 2e 49 4b |e P.EInp|utKey.IK|
|00001d40| 5f 44 65 6c 65 74 65 3a | 0d 0a 09 09 69 66 28 62 |_Delete:|....if(b|
|00001d50| 43 61 6e 45 64 69 74 29 | 0d 0a 09 09 7b 0d 0a 09 |CanEdit)|....{...|
|00001d60| 09 09 69 66 28 62 41 6c | 6c 53 65 6c 65 63 74 65 |..if(bAl|lSelecte|
|00001d70| 64 29 0d 0a 09 09 09 09 | 43 6c 65 61 72 28 29 3b |d)......|Clear();|
|00001d80| 0d 0a 09 09 09 65 6c 73 | 65 0d 0a 09 09 09 09 44 |.....els|e......D|
|00001d90| 65 6c 65 74 65 28 29 3b | 0d 0a 09 09 7d 0d 0a 09 |elete();|....}...|
|00001da0| 09 62 41 6c 6c 53 65 6c | 65 63 74 65 64 20 3d 20 |.bAllSel|ected = |
|00001db0| 46 61 6c 73 65 3b 0d 0a | 09 09 62 72 65 61 6b 3b |False;..|..break;|
|00001dc0| 0d 0a 09 63 61 73 65 20 | 50 2e 45 49 6e 70 75 74 |...case |P.EInput|
|00001dd0| 4b 65 79 2e 49 4b 5f 50 | 65 72 69 6f 64 3a 0d 0a |Key.IK_P|eriod:..|
|00001de0| 09 63 61 73 65 20 50 2e | 45 49 6e 70 75 74 4b 65 |.case P.|EInputKe|
|00001df0| 79 2e 49 4b 5f 4e 75 6d | 50 61 64 50 65 72 69 6f |y.IK_Num|PadPerio|
|00001e00| 64 3a 0d 0a 09 09 69 66 | 20 28 62 4e 75 6d 65 72 |d:....if| (bNumer|
|00001e10| 69 63 46 6c 6f 61 74 29 | 0d 0a 09 09 09 49 6e 73 |icFloat)|.....Ins|
|00001e20| 65 72 74 28 41 73 63 28 | 22 2e 22 29 29 3b 0d 0a |ert(Asc(|"."));..|
|00001e30| 09 09 62 72 65 61 6b 3b | 0d 0a 09 64 65 66 61 75 |..break;|...defau|
|00001e40| 6c 74 3a 0d 0a 09 09 69 | 66 28 20 62 43 6f 6e 74 |lt:....i|f( bCont|
|00001e50| 72 6f 6c 44 6f 77 6e 20 | 29 0d 0a 09 09 7b 0d 0a |rolDown |)....{..|
|00001e60| 09 09 09 69 66 28 20 4b | 65 79 20 3d 3d 20 41 73 |...if( K|ey == As|
|00001e70| 63 28 22 63 22 29 20 7c | 7c 20 4b 65 79 20 3d 3d |c("c") ||| Key ==|
|00001e80| 20 41 73 63 28 22 43 22 | 29 29 0d 0a 09 09 09 09 | Asc("C"|))......|
|00001e90| 45 64 69 74 43 6f 70 79 | 28 29 3b 0d 0a 0d 0a 09 |EditCopy|();.....|
|00001ea0| 09 09 69 66 28 20 4b 65 | 79 20 3d 3d 20 41 73 63 |..if( Ke|y == Asc|
|00001eb0| 28 22 76 22 29 20 7c 7c | 20 4b 65 79 20 3d 3d 20 |("v") ||| Key == |
|00001ec0| 41 73 63 28 22 56 22 29 | 29 0d 0a 09 09 09 09 45 |Asc("V")|)......E|
|00001ed0| 64 69 74 50 61 73 74 65 | 28 29 3b 0d 0a 0d 0a 09 |ditPaste|();.....|
|00001ee0| 09 09 69 66 28 20 4b 65 | 79 20 3d 3d 20 41 73 63 |..if( Ke|y == Asc|
|00001ef0| 28 22 78 22 29 20 7c 7c | 20 4b 65 79 20 3d 3d 20 |("x") ||| Key == |
|00001f00| 41 73 63 28 22 58 22 29 | 29 0d 0a 09 09 09 09 45 |Asc("X")|)......E|
|00001f10| 64 69 74 43 75 74 28 29 | 3b 0d 0a 09 09 7d 0d 0a |ditCut()|;....}..|
|00001f20| 09 09 65 6c 73 65 0d 0a | 09 09 7b 0d 0a 09 09 09 |..else..|..{.....|
|00001f30| 69 66 28 4e 6f 74 69 66 | 79 4f 77 6e 65 72 20 21 |if(Notif|yOwner !|
|00001f40| 3d 20 4e 6f 6e 65 29 0d | 0a 09 09 09 09 4e 6f 74 |= None).|.....Not|
|00001f50| 69 66 79 4f 77 6e 65 72 | 2e 4b 65 79 44 6f 77 6e |ifyOwner|.KeyDown|
|00001f60| 28 4b 65 79 2c 20 58 2c | 20 59 29 3b 0d 0a 09 09 |(Key, X,| Y);....|
|00001f70| 09 65 6c 73 65 0d 0a 09 | 09 09 09 53 75 70 65 72 |.else...|...Super|
|00001f80| 2e 4b 65 79 44 6f 77 6e | 28 4b 65 79 2c 20 58 2c |.KeyDown|(Key, X,|
|00001f90| 20 59 29 3b 0d 0a 09 09 | 7d 0d 0a 09 09 62 72 65 | Y);....|}....bre|
|00001fa0| 61 6b 3b 0d 0a 09 7d 0d | 0a 7d 0d 0a 0d 0a 66 75 |ak;...}.|.}....fu|
|00001fb0| 6e 63 74 69 6f 6e 20 43 | 6c 69 63 6b 28 66 6c 6f |nction C|lick(flo|
|00001fc0| 61 74 20 58 2c 20 66 6c | 6f 61 74 20 59 29 0d 0a |at X, fl|oat Y)..|
|00001fd0| 7b 0d 0a 09 4e 6f 74 69 | 66 79 28 44 45 5f 43 6c |{...Noti|fy(DE_Cl|
|00001fe0| 69 63 6b 29 3b 0d 0a 7d | 0d 0a 0d 0a 66 75 6e 63 |ick);..}|....func|
|00001ff0| 74 69 6f 6e 20 4c 4d 6f | 75 73 65 44 6f 77 6e 28 |tion LMo|useDown(|
|00002000| 66 6c 6f 61 74 20 58 2c | 20 66 6c 6f 61 74 20 59 |float X,| float Y|
|00002010| 29 0d 0a 7b 0d 0a 09 53 | 75 70 65 72 2e 4c 4d 6f |)..{...S|uper.LMo|
|00002020| 75 73 65 44 6f 77 6e 28 | 58 2c 20 59 29 3b 0d 0a |useDown(|X, Y);..|
|00002030| 09 4e 6f 74 69 66 79 28 | 44 45 5f 4c 4d 6f 75 73 |.Notify(|DE_LMous|
|00002040| 65 44 6f 77 6e 29 3b 0d | 0a 7d 0d 0a 0d 0a 66 75 |eDown);.|.}....fu|
|00002050| 6e 63 74 69 6f 6e 20 50 | 61 69 6e 74 28 43 61 6e |nction P|aint(Can|
|00002060| 76 61 73 20 43 2c 20 66 | 6c 6f 61 74 20 58 2c 20 |vas C, f|loat X, |
|00002070| 66 6c 6f 61 74 20 59 29 | 0d 0a 7b 0d 0a 09 6c 6f |float Y)|..{...lo|
|00002080| 63 61 6c 20 66 6c 6f 61 | 74 20 57 2c 20 48 3b 0d |cal floa|t W, H;.|
|00002090| 0a 09 6c 6f 63 61 6c 20 | 66 6c 6f 61 74 20 54 65 |..local |float Te|
|000020a0| 78 74 59 3b 0d 0a 0d 0a | 09 43 2e 46 6f 6e 74 20 |xtY;....|.C.Font |
|000020b0| 3d 20 52 6f 6f 74 2e 46 | 6f 6e 74 73 5b 46 6f 6e |= Root.F|onts[Fon|
|000020c0| 74 5d 3b 0d 0a 0d 0a 09 | 54 65 78 74 53 69 7a 65 |t];.....|TextSize|
|000020d0| 28 43 2c 20 22 41 22 2c | 20 57 2c 20 48 29 3b 0d |(C, "A",| W, H);.|
|000020e0| 0a 09 54 65 78 74 59 20 | 3d 20 28 57 69 6e 48 65 |..TextY |= (WinHe|
|000020f0| 69 67 68 74 20 2d 20 48 | 29 20 2f 20 32 3b 0d 0a |ight - H|) / 2;..|
|00002100| 0d 0a 09 54 65 78 74 53 | 69 7a 65 28 43 2c 20 4c |...TextS|ize(C, L|
|00002110| 65 66 74 28 56 61 6c 75 | 65 2c 20 43 61 72 65 74 |eft(Valu|e, Caret|
|00002120| 4f 66 66 73 65 74 29 2c | 20 57 2c 20 48 29 3b 0d |Offset),| W, H);.|
|00002130| 0a 0d 0a 09 43 2e 44 72 | 61 77 43 6f 6c 6f 72 2e |....C.Dr|awColor.|
|00002140| 52 20 3d 20 32 35 35 3b | 0d 0a 09 43 2e 44 72 61 |R = 255;|...C.Dra|
|00002150| 77 43 6f 6c 6f 72 2e 47 | 20 3d 20 32 35 35 3b 0d |wColor.G| = 255;.|
|00002160| 0a 09 43 2e 44 72 61 77 | 43 6f 6c 6f 72 2e 42 20 |..C.Draw|Color.B |
|00002170| 3d 20 32 35 35 3b 0d 0a | 0d 0a 09 69 66 28 57 20 |= 255;..|...if(W |
|00002180| 2b 20 4f 66 66 73 65 74 | 20 3c 20 30 29 0d 0a 09 |+ Offset| < 0)...|
|00002190| 09 4f 66 66 73 65 74 20 | 3d 20 2d 57 3b 0d 0a 0d |.Offset |= -W;...|
|000021a0| 0a 09 69 66 28 57 20 2b | 20 4f 66 66 73 65 74 20 |..if(W +| Offset |
|000021b0| 3e 20 28 57 69 6e 57 69 | 64 74 68 20 2d 20 32 29 |> (WinWi|dth - 2)|
|000021c0| 29 0d 0a 09 7b 0d 0a 09 | 09 4f 66 66 73 65 74 20 |)...{...|.Offset |
|000021d0| 3d 20 28 57 69 6e 57 69 | 64 74 68 20 2d 20 32 29 |= (WinWi|dth - 2)|
|000021e0| 20 2d 20 57 3b 0d 0a 09 | 09 69 66 28 4f 66 66 73 | - W;...|.if(Offs|
|000021f0| 65 74 20 3e 20 30 29 20 | 4f 66 66 73 65 74 20 3d |et > 0) |Offset =|
|00002200| 20 30 3b 0d 0a 09 7d 0d | 0a 0d 0a 09 43 2e 44 72 | 0;...}.|....C.Dr|
|00002210| 61 77 43 6f 6c 6f 72 20 | 3d 20 54 65 78 74 43 6f |awColor |= TextCo|
|00002220| 6c 6f 72 3b 0d 0a 0d 0a | 09 69 66 28 62 41 6c 6c |lor;....|.if(bAll|
|00002230| 53 65 6c 65 63 74 65 64 | 29 0d 0a 09 7b 0d 0a 09 |Selected|)...{...|
|00002240| 09 44 72 61 77 53 74 72 | 65 74 63 68 65 64 54 65 |.DrawStr|etchedTe|
|00002250| 78 74 75 72 65 28 43 2c | 20 4f 66 66 73 65 74 20 |xture(C,| Offset |
|00002260| 2b 20 31 2c 20 54 65 78 | 74 59 2c 20 57 2c 20 48 |+ 1, Tex|tY, W, H|
|00002270| 2c 20 54 65 78 74 75 72 | 65 27 55 57 69 6e 64 6f |, Textur|e'UWindo|
|00002280| 77 2e 57 68 69 74 65 54 | 65 78 74 75 72 65 27 29 |w.WhiteT|exture')|
|00002290| 3b 0d 0a 0d 0a 09 09 2f | 2f 20 49 6e 76 65 72 74 |;....../|/ Invert|
|000022a0| 20 43 6f 6c 6f 72 73 0d | 0a 09 09 43 2e 44 72 61 | Colors.|...C.Dra|
|000022b0| 77 43 6f 6c 6f 72 2e 52 | 20 3d 20 32 35 35 20 5e |wColor.R| = 255 ^|
|000022c0| 20 43 2e 44 72 61 77 43 | 6f 6c 6f 72 2e 52 3b 0d | C.DrawC|olor.R;.|
|000022d0| 0a 09 09 43 2e 44 72 61 | 77 43 6f 6c 6f 72 2e 47 |...C.Dra|wColor.G|
|000022e0| 20 3d 20 32 35 35 20 5e | 20 43 2e 44 72 61 77 43 | = 255 ^| C.DrawC|
|000022f0| 6f 6c 6f 72 2e 47 3b 0d | 0a 09 09 43 2e 44 72 61 |olor.G;.|...C.Dra|
|00002300| 77 43 6f 6c 6f 72 2e 42 | 20 3d 20 32 35 35 20 5e |wColor.B| = 255 ^|
|00002310| 20 43 2e 44 72 61 77 43 | 6f 6c 6f 72 2e 42 3b 0d | C.DrawC|olor.B;.|
|00002320| 0a 09 7d 0d 0a 0d 0a 09 | 43 6c 69 70 54 65 78 74 |..}.....|ClipText|
|00002330| 28 43 2c 20 4f 66 66 73 | 65 74 20 2b 20 31 2c 20 |(C, Offs|et + 1, |
|00002340| 54 65 78 74 59 2c 20 20 | 56 61 6c 75 65 29 3b 0d |TextY, |Value);.|
|00002350| 0a 0d 0a 09 69 66 28 28 | 21 62 48 61 73 4b 65 79 |....if((|!bHasKey|
|00002360| 62 6f 61 72 64 46 6f 63 | 75 73 29 20 7c 7c 20 28 |boardFoc|us) || (|
|00002370| 21 62 43 61 6e 45 64 69 | 74 29 29 0d 0a 09 09 62 |!bCanEdi|t))....b|
|00002380| 53 68 6f 77 43 61 72 65 | 74 20 3d 20 46 61 6c 73 |ShowCare|t = Fals|
|00002390| 65 3b 0d 0a 09 65 6c 73 | 65 0d 0a 09 7b 0d 0a 09 |e;...els|e...{...|
|000023a0| 09 69 66 28 28 47 65 74 | 4c 65 76 65 6c 28 29 2e |.if((Get|Level().|
|000023b0| 54 69 6d 65 53 65 63 6f | 6e 64 73 20 3e 20 4c 61 |TimeSeco|nds > La|
|000023c0| 73 74 44 72 61 77 54 69 | 6d 65 20 2b 20 30 2e 33 |stDrawTi|me + 0.3|
|000023d0| 29 20 7c 7c 20 28 47 65 | 74 4c 65 76 65 6c 28 29 |) || (Ge|tLevel()|
|000023e0| 2e 54 69 6d 65 53 65 63 | 6f 6e 64 73 20 3c 20 4c |.TimeSec|onds < L|
|000023f0| 61 73 74 44 72 61 77 54 | 69 6d 65 29 29 0d 0a 09 |astDrawT|ime))...|
|00002400| 09 7b 0d 0a 09 09 09 4c | 61 73 74 44 72 61 77 54 |.{.....L|astDrawT|
|00002410| 69 6d 65 20 3d 20 47 65 | 74 4c 65 76 65 6c 28 29 |ime = Ge|tLevel()|
|00002420| 2e 54 69 6d 65 53 65 63 | 6f 6e 64 73 3b 0d 0a 09 |.TimeSec|onds;...|
|00002430| 09 09 62 53 68 6f 77 43 | 61 72 65 74 20 3d 20 21 |..bShowC|aret = !|
|00002440| 62 53 68 6f 77 43 61 72 | 65 74 3b 0d 0a 09 09 7d |bShowCar|et;....}|
|00002450| 0d 0a 09 7d 0d 0a 0d 0a | 09 69 66 28 62 53 68 6f |...}....|.if(bSho|
|00002460| 77 43 61 72 65 74 29 0d | 0a 09 09 43 6c 69 70 54 |wCaret).|...ClipT|
|00002470| 65 78 74 28 43 2c 20 4f | 66 66 73 65 74 20 2b 20 |ext(C, O|ffset + |
|00002480| 57 20 2d 20 31 2c 20 54 | 65 78 74 59 2c 20 22 7c |W - 1, T|extY, "||
|00002490| 22 29 3b 0d 0a 7d 0d 0a | 0d 0a 66 75 6e 63 74 69 |");..}..|..functi|
|000024a0| 6f 6e 20 43 6c 6f 73 65 | 28 6f 70 74 69 6f 6e 61 |on Close|(optiona|
|000024b0| 6c 20 62 6f 6f 6c 20 62 | 42 79 50 61 72 65 6e 74 |l bool b|ByParent|
|000024c0| 29 0d 0a 7b 0d 0a 09 69 | 66 28 62 43 68 61 6e 67 |)..{...i|f(bChang|
|000024d0| 65 50 65 6e 64 69 6e 67 | 29 0d 0a 09 7b 0d 0a 09 |ePending|)...{...|
|000024e0| 09 62 43 68 61 6e 67 65 | 50 65 6e 64 69 6e 67 20 |.bChange|Pending |
|000024f0| 3d 20 46 61 6c 73 65 3b | 0d 0a 09 09 4e 6f 74 69 |= False;|....Noti|
|00002500| 66 79 28 44 45 5f 43 68 | 61 6e 67 65 29 3b 0d 0a |fy(DE_Ch|ange);..|
|00002510| 09 7d 0d 0a 09 62 4b 65 | 79 44 6f 77 6e 20 3d 20 |.}...bKe|yDown = |
|00002520| 46 61 6c 73 65 3b 0d 0a | 09 53 75 70 65 72 2e 43 |False;..|.Super.C|
|00002530| 6c 6f 73 65 28 62 42 79 | 50 61 72 65 6e 74 29 3b |lose(bBy|Parent);|
|00002540| 0d 0a 7d 0d 0a 0d 0a 66 | 75 6e 63 74 69 6f 6e 20 |..}....f|unction |
|00002550| 46 6f 63 75 73 4f 74 68 | 65 72 57 69 6e 64 6f 77 |FocusOth|erWindow|
|00002560| 28 55 57 69 6e 64 6f 77 | 57 69 6e 64 6f 77 20 57 |(UWindow|Window W|
|00002570| 29 0d 0a 7b 0d 0a 09 69 | 66 28 62 43 68 61 6e 67 |)..{...i|f(bChang|
|00002580| 65 50 65 6e 64 69 6e 67 | 29 0d 0a 09 7b 0d 0a 09 |ePending|)...{...|
|00002590| 09 62 43 68 61 6e 67 65 | 50 65 6e 64 69 6e 67 20 |.bChange|Pending |
|000025a0| 3d 20 46 61 6c 73 65 3b | 0d 0a 09 09 4e 6f 74 69 |= False;|....Noti|
|000025b0| 66 79 28 44 45 5f 43 68 | 61 6e 67 65 29 3b 0d 0a |fy(DE_Ch|ange);..|
|000025c0| 09 7d 0d 0a 0d 0a 09 69 | 66 28 4e 6f 74 69 66 79 |.}.....i|f(Notify|
|000025d0| 4f 77 6e 65 72 20 21 3d | 20 4e 6f 6e 65 29 0d 0a |Owner !=| None)..|
|000025e0| 09 09 4e 6f 74 69 66 79 | 4f 77 6e 65 72 2e 46 6f |..Notify|Owner.Fo|
|000025f0| 63 75 73 4f 74 68 65 72 | 57 69 6e 64 6f 77 28 57 |cusOther|Window(W|
|00002600| 29 3b 0d 0a 09 65 6c 73 | 65 0d 0a 09 09 53 75 70 |);...els|e....Sup|
|00002610| 65 72 2e 46 6f 63 75 73 | 4f 74 68 65 72 57 69 6e |er.Focus|OtherWin|
|00002620| 64 6f 77 28 57 29 3b 0d | 0a 7d 0d 0a 0d 0a 66 75 |dow(W);.|.}....fu|
|00002630| 6e 63 74 69 6f 6e 20 4b | 65 79 46 6f 63 75 73 45 |nction K|eyFocusE|
|00002640| 6e 74 65 72 28 29 0d 0a | 7b 0d 0a 09 69 66 28 62 |nter()..|{...if(b|
|00002650| 53 65 6c 65 63 74 4f 6e | 46 6f 63 75 73 20 26 26 |SelectOn|Focus &&|
|00002660| 20 21 62 48 61 73 4b 65 | 79 62 6f 61 72 64 46 6f | !bHasKe|yboardFo|
|00002670| 63 75 73 29 0d 0a 09 09 | 53 65 6c 65 63 74 41 6c |cus)....|SelectAl|
|00002680| 6c 28 29 3b 0d 0a 0d 0a | 09 53 75 70 65 72 2e 4b |l();....|.Super.K|
|00002690| 65 79 46 6f 63 75 73 45 | 6e 74 65 72 28 29 3b 0d |eyFocusE|nter();.|
|000026a0| 0a 7d 0d 0a 0d 0a 66 75 | 6e 63 74 69 6f 6e 20 44 |.}....fu|nction D|
|000026b0| 6f 75 62 6c 65 43 6c 69 | 63 6b 28 66 6c 6f 61 74 |oubleCli|ck(float|
|000026c0| 20 58 2c 20 66 6c 6f 61 | 74 20 59 29 0d 0a 7b 0d | X, floa|t Y)..{.|
|000026d0| 0a 09 53 75 70 65 72 2e | 44 6f 75 62 6c 65 43 6c |..Super.|DoubleCl|
|000026e0| 69 63 6b 28 58 2c 20 59 | 29 3b 0d 0a 09 53 65 6c |ick(X, Y|);...Sel|
|000026f0| 65 63 74 41 6c 6c 28 29 | 3b 0d 0a 7d 0d 0a 0d 0a |ectAll()|;..}....|
|00002700| 66 75 6e 63 74 69 6f 6e | 20 4b 65 79 46 6f 63 75 |function| KeyFocu|
|00002710| 73 45 78 69 74 28 29 0d | 0a 7b 0d 0a 09 62 41 6c |sExit().|.{...bAl|
|00002720| 6c 53 65 6c 65 63 74 65 | 64 20 3d 20 46 61 6c 73 |lSelecte|d = Fals|
|00002730| 65 3b 0d 0a 09 53 75 70 | 65 72 2e 4b 65 79 46 6f |e;...Sup|er.KeyFo|
|00002740| 63 75 73 45 78 69 74 28 | 29 3b 0d 0a 7d 0d 0a 09 |cusExit(|);..}...|
|00002750| 0d 0a 00 | |... | |
+--------+-------------------------+-------------------------+--------+--------+
